home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pctbar / pctbar.frm < prev   
Text File  |  1995-05-08  |  2KB  |  63 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2460
  5.    ClientLeft      =   2265
  6.    ClientTop       =   2565
  7.    ClientWidth     =   3150
  8.    Height          =   2865
  9.    Left            =   2205
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2460
  12.    ScaleWidth      =   3150
  13.    Top             =   2220
  14.    Width           =   3270
  15.    Begin HScrollBar HScroll 
  16.       Height          =   270
  17.       LargeChange     =   10
  18.       Left            =   465
  19.       Max             =   100
  20.       TabIndex        =   2
  21.       Top             =   1395
  22.       Width           =   1980
  23.    End
  24.    Begin Label lbl_Pct 
  25.       Alignment       =   2  'Center
  26.       BackStyle       =   0  'Transparent
  27.       Height          =   195
  28.       Left            =   1140
  29.       TabIndex        =   1
  30.       Top             =   450
  31.       Width           =   585
  32.    End
  33.    Begin Shape Shape1 
  34.       Height          =   495
  35.       Left            =   420
  36.       Top             =   300
  37.       Width           =   2025
  38.    End
  39.    Begin Label lbl_Bar 
  40.       BackColor       =   &H000000FF&
  41.       Height          =   480
  42.       Left            =   435
  43.       TabIndex        =   0
  44.       Top             =   315
  45.       Visible         =   0   'False
  46.       Width           =   15
  47.    End
  48. End
  49. Sub HScroll_Change ()
  50.  
  51.     If (HScroll.Value > 0) Then
  52.         lbl_Bar.Visible = True
  53.         lbl_Bar.Width = HScroll.Value * 20
  54.     ElseIf (HScroll.Value = 0) Then
  55.         lbl_Bar.Visible = False
  56.         lbl_Bar.Width = 20
  57.     End If
  58.  
  59.     lbl_Pct.Caption = Str(HScroll.Value) & "%"
  60.  
  61. End Sub
  62.  
  63.